(read-from-whole-string): Add call to `ignore'.

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 6e2c4e4317b272057a646ed9921f24a49d7410c9..73f88f4b4a56c82c10947b69b9563154a2974519 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -384,7 +384,8 @@ Signal an error if the entire string was not used."
   (let* ((read-data (read-from-string str))
         (more-left 
          (condition-case nil
-             (progn (read-from-string (substring str (cdr read-data)))
+             ;; The call to `ignore' suppresses a warning.
+             (progn (ignore (read-from-string (substring str (cdr read-data))))
                     t)
            (end-of-file nil))))
     (if more-left